home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
allfiles
/
Centri
/
Centri.dir
/
00285_Script_ClickThrough
< prev
next >
Wrap
Text File
|
1999-02-25
|
2KB
|
64 lines
property origSprite, ControlChannel, channel1, channel2, channel3, channel4, arrowL, arrowR
on exitFrame me
if the memberNum of sprite origSprite = channel1 then
set the memberNum of sprite ControlChannel = 77
else
set the memberNum of sprite ControlChannel = 75
end if
updateStage
puppetSprite origSprite, 1
end
on mouseUp
puppetSound 2, "click"
puppetSprite origSprite, 1
if the memberNum of sprite origSprite = channel1 then
set the memberNum of sprite origSprite = channel2
set the visibility of sprite arrowL = TRUE
else if the memberNum of sprite origSprite = channel2 then
set the memberNum of sprite origSprite = channel3
else if the memberNum of sprite origSprite = channel3 then
set the memberNum of sprite origSprite = channel4
else if the memberNum of sprite origSprite = channel4 then
set the memberNum of sprite origSprite = channel1
set the visibility of sprite arrowR = FALSE
end if
updateStage
end
on getPropertyDescriptionList
set p_list = [ ¼
ControlChannel: [ #comment: "Control Channel Sprite Number:", ¼
#format: #integer, ¼
#default: 1 ] , ¼
origSprite : [ #comment: " Sprite Number:", ¼
#format: #integer, ¼
#default: 1 ] , ¼
channel1 : [ #comment: " Channel 1:", ¼
#format: #integer, ¼
#default: 2 ] , ¼
channel2 : [ #comment: " Channel 2:", ¼
#format: #integer, ¼
#default: 3 ] , ¼
channel3 : [ #comment: " Channel 3:", ¼
#format: #integer, ¼
#default: 4 ], ¼
channel4 : [ #comment: " Channel 3:", ¼
#format: #integer, ¼
#default: 5 ], ¼
arrowL : [ #comment: " Sprite for the Left Arrow:", ¼
#format: #integer, ¼
#default: 6 ], ¼
arrowR : [ #comment: " Sprite for the Right Arrow", ¼
#format: #integer, ¼
#default: 7 ] ]
return p_list
end